10 PRINT"[147]MOMENT"
20 CK=0
30 FORG=673TO754:READA:POKEG,A:CK=CK+A:NEXT
40 IFCK<>8662THENPRINT"DATA ERROR":END
50 DATA 169,172,141,008,003,169,002,141,009,003,096,032,115,000,201,033,240
60 DATA 009,032,121,000,076,231,199,076,008,207,160,000,032,115,000,217,238
70 DATA 002,208,243,200,192,005,208,243,032,155,215,142,132,003,032,121,000
80 DATA 201,044,208,225,032,155,215,138,010,010,010,010,109,132,003,141,015
90 DATA 144,169,005,032,210,255,076,174,199,070,065,082,066,069
100 SYS673
110 !FARBE 6,14
120 PRINT"[147]      16 FARBEN"
130 PRINT"SYNTAX: !FARBE BORDER(0-7), TEXT(0-15)"
140 PRINT"                                      "
150 PRINT"                TASTE
160 [153]"                                      "
170 [161]Z$:[139]Z$[178]""[167]170
180 [153]"LOAD";:!FARBE 3,6
190 [153]"********!FARBE********":[162]